# Start-TCL: n


#Zeppelin nach Undercity

namespace eval zeppuc {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Das kostet 10 Silber." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 5 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 5 se vuoi andare a Undercity."
} else {
SendGossipComplete $player
set money -1000
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 0 1832.44 236.426 60.4171
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi lo zeppelin... e' gratuito."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Zeppelin nach Orgrimmar

namespace eval zeppog {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo a Orgrimmar e' di 10 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 5 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 5 se vuoi andare a Orgrimmar."
} else {
SendGossipComplete $player
set money -1000
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 1 1484.36 -4417.03 24.4709
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi lo zeppelin... e' gratuito."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Zeppelin nach Grom'Gol

namespace eval zeppgromgol {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo a Grom'Gol e' di 25 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 25 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 25 se vuoi andare a Grom'Gol."
} else {
SendGossipComplete $player
set money -2500
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 0 -12352.8 211.452 4.5846
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi lo zeppelin... e' gratuito."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Schiff nach Booty Bay

namespace eval schiffbootybay {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo a Booty Bay e' di 10 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 25 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 25 se vuoi andare a Booty Bay."
} else {
SendGossipComplete $player
set money -1000
if { [ChangeMoney $player $money] == 1 } {
Teleport $player .0 -14406.6 419.353 22.3907
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi la nave... e' gratuita."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Schiff nach Ratchet

namespace eval schiffratchet {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo a Ratchet e' di 10 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 15 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 15 se vuoi andare a Ratchet."
} else {
SendGossipComplete $player
set money -1000
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 1 -943.935 -3715.49 11.8385
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi la nave... e' gratuita."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Schiff nach Darnassus

namespace eval schiffdarnassus {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo a Darnassus e' di 10 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 5 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 5 se vuoi andare a Darnassus."
} else {
SendGossipComplete $player
set money -1000
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 1 9948.55 2413.59 1327.23
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi la nave... e' gratuita."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Schiff nach Auberdine

namespace eval schiffauberdine {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo ad Auberdine e' di 10 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 10 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 10 se vuoi andare ad Auberdine."
} else {
SendGossipComplete $player
set money -1000
set playertarget [GetSelection $player]
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 1 6432.199219 484.581848 7.106398
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi la nave... e' gratuita."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Schiff nach Theramore Isle

namespace eval schifftheramore {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo a Theramore e' di 25 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 25 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 25 se vuoi andare a Theramore."
} else {
SendGossipComplete $player
set money -2500
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 1 -3729.36 -4421.41 30.4474
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi la nave... e' gratuita."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Schiff nach Menethil Harbor

namespace eval schiffmenethil {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il costo per un viaggio istantaneo a Menethil Harbor e' di 10 argenti." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 15 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 15 se vuoi andare a Menethil Harbor."
} else {
SendGossipComplete $player
set money -1000
if { [ChangeMoney $player $money] == 1 } {
Teleport $player 0 -3740.29 -755.08 10.9643
} else {
Say $npc 0 "Non hai abbastanza soldi. Aspetta che arrivi la nave... e' gratuita."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Metro nach Stormwind

namespace eval metrostormwind {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il viaggio verso Stormwind e' gratuito." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 5 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 5 se vuoi andare a Stormwind."
} else {
SendGossipComplete $player
Teleport $player 0 -8913.23 554.633 93.7944
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Metro nach Ironforge

namespace eval metroironforge {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Il viaggio verso Ironforge e' gratuito." }
}
proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 5 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 5 se vuoi andare ad Ironforge."
} else {
SendGossipComplete $player
Teleport $player 0 -4920.611816 -955.967468 501.509644 
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

#Gilden Teleporter

namespace eval GildenTeleporter {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Per 10 argenti posso portarti nella sede della tua gilda." }
}

proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
set guild [Custom::GetGuildName $player]
if { $guild == "" } {
Say $npc 0 "Non fai parte di alcuna gilda."
}
if {$plevel < 5 } {
Say $npc 0 "Mi dispiace, ma devi essere almeno al livello 5 se vuoi usufruire di questo servizio."
} else {
SendGossipComplete $player
set money -1000
set playertarget [GetSelection $player]

if { [ChangeMoney $player $money] == 1 } {
if { $guild == "Dark Legion" } {
Teleport $player 1 -456.263 -2652.7 95.615
}
if { $guild == "Guardians of the Old Lion" } {
Teleport $player 0 -8913.23 554.633 93.7944
}
if { $guild == "The Boss" } {
Teleport $player 1 16222.1 16252.1 12.5872
}
} else {
Say $npc 0 "Non hai abbastanza soldi. Ripassa un'altra volta."
Emote $npc 77
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}
